perm filename DIFF.MS[NEW,LCS] blob
sn#510960 filedate 1980-05-12 generic text, type T, neo UTF8
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-12-80 21:51 pages 1,1
**** File 1) MS.F4[NEW,LCS]/1P/1L
1) COMMENT ⊗ VALID 00004 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00002 00002 C ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
1) C00031 00003
1) C00049 00004 1860 J2=R2
1) C00066 ENDMK
1) C⊗;
1) C ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
**** File 2) MS.OLD[NEW,LCS]/1P/1L
2) C ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
***************
**** File 1) MS.F4[NEW,LCS]/2P/259L
1) C****320 REREAD 2430,J,R2,RJQ
1) C ↑↑↑ 1/78
1) 320 CALL READX
1) J=JA
1) C FIRST CATCHES BLANKS, NUMBERS, ETC.
**** File 2) MS.OLD[NEW,LCS]/1P/259L
2) 320 REREAD 2430,J,R2,RJQ
2) C ↑↑↑ 1/78
2) C FIRST CATCHES BLANKS, NUMBERS, ETC.
***************
**** File 1) MS.F4[NEW,LCS]/2P/325L
1) CRR*** REREAD 2430,JA,JA,JA,R2,RJQ
1) J=4
**** File 2) MS.OLD[NEW,LCS]/1P/323L
2) REREAD 2430,JA,JA,JA,R2,RJQ
2) J=4
***************
**** File 1) MS.F4[NEW,LCS]/2P/409L
1) CRR***500 REREAD 2430,JA,JA,JA,R2,RJQ
1) 500 R5=RD
1) GO TO 890
**** File 2) MS.OLD[NEW,LCS]/1P/407L
2) 500 REREAD 2430,JA,JA,JA,R2,RJQ
2) R5=RD
2) GO TO 890
***************
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-12-80 21:51 pages 2,1
**** File 1) MS.F4[NEW,LCS]/2P/430L
1) CRR***560 FORMAT(A2,21F)
1) CC IF(X22.NE.0)GO TO 59
1) 560 IF(I3.EQ.LCC)GO TO 830
1) C STC=STACCATO
**** File 2) MS.OLD[NEW,LCS]/1P/428L
2) 560 FORMAT(A2,21F)
2) CC IF(X22.NE.0)GO TO 59
2) IF(I3.EQ.LCC)GO TO 830
2) C STC=STACCATO
***************
**** File 1) MS.F4[NEW,LCS]/2P/436L
1) CRR***580 REREAD 560,K,R2,RJQ
1) 580 JA=55
1) IF(I2.NE.LCC)GO TO 590
**** File 2) MS.OLD[NEW,LCS]/1P/434L
2) 580 REREAD 560,K,R2,RJQ
2) JA=55
2) IF(I2.NE.LCC)GO TO 590
***************
**** File 1) MS.F4[NEW,LCS]/2P/540L
1) CRR*** RSET4=R3
1) RSET4=R2
1) C SPn SETS "SETUP" STAFF NUMBER
**** File 2) MS.OLD[NEW,LCS]/1P/538L
2) RSET4=R3
2) C SPn SETS "SETUP" STAFF NUMBER
***************
**** File 1) MS.F4[NEW,LCS]/2P/555L
1) CRR***790 REREAD 560,JA,R2,RJQ
1) 790 CONTINUE
1) 800 IF(X22.NE.0)GO TO 130
**** File 2) MS.OLD[NEW,LCS]/1P/552L
2) 790 REREAD 560,JA,R2,RJQ
2) 800 IF(X22.NE.0)GO TO 130
***************
**** File 1) MS.F4[NEW,LCS]/2P/565L
1) CRR***820 REREAD 2430,J,J,J,R2,RJQ
1) 820 GO TO 800
1) 830 RD=7
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-12-80 21:51 pages 2,1
**** File 2) MS.OLD[NEW,LCS]/1P/561L
2) 820 REREAD 2430,J,J,J,R2,RJQ
2) GO TO 800
2) 830 RD=7
***************
**** File 1) MS.F4[NEW,LCS]/2P/583L
1) CRR***860 REREAD 560,JA,R2,RJQ
1) 860 R5=26
1) J=9
**** File 2) MS.OLD[NEW,LCS]/1P/579L
2) 860 REREAD 560,JA,R2,RJQ
2) R5=26
2) J=9
***************
**** File 1) MS.F4[NEW,LCS]/2P/599L
1) CRR***880 REREAD 560,JA,R2,RJQ
1) 880 R5=RD
1) 890 J=3
**** File 2) MS.OLD[NEW,LCS]/1P/595L
2) 880 REREAD 560,JA,R2,RJQ
2) R5=RD
2) 890 J=3
***************
**** File 1) MS.F4[NEW,LCS]/2P/623L
1) CRR*** J3=R3
1) CRR*** J4=R4
1) J3=R2
1) J4=R3
1) C 'TL' SET LOCATION OF TYPE OUT ON SCREEN
**** File 2) MS.OLD[NEW,LCS]/1P/619L
2) J3=R3
2) J4=R4
2) C 'TL' SET LOCATION OF TYPE OUT ON SCREEN
***************
**** File 1) MS.F4[NEW,LCS]/2P/630L
1) CRR*** IF(R3.NE.0)GO TO 930
1) CRR*** IF(R4.NE.0)GO TO 930
1) IF(R2.NE.0)GO TO 930
1) IF(R3.NE.0)GO TO 930
1) J4=0
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-12-80 21:51 pages 2,1
**** File 2) MS.OLD[NEW,LCS]/1P/624L
2) IF(R3.NE.0)GO TO 930
2) IF(R4.NE.0)GO TO 930
2) J4=0
***************
**** File 1) MS.F4[NEW,LCS]/2P/640L
1) C ????'T' = TEST INPUT
1) J2=R2
**** File 2) MS.OLD[NEW,LCS]/1P/632L
2) C 'T' = TEST INPUT
2) J2=R2
***************
**** File 1) MS.F4[NEW,LCS]/2P/651L
1) C ????? CHECK THIS TYPE 'IN STF# MODE' ETC. -- SAME AS 140 STF#.
1) 960 SCORE=0
**** File 2) MS.OLD[NEW,LCS]/1P/643L
2) C TYPE 'IN STF# MODE' ETC. -- SAME AS 140 STF#.
2) 960 SCORE=0
***************
**** File 1) MS.F4[NEW,LCS]/3P/27L
1) CRR*** REREAD 560,R3,R3
1) C FOR SOME REASON ONLY 'ZD' NEEDS THIS REREAD?!?!?!? FORMAT(A2,21F)
1) R3=R2
1) CRR*** ABOVE REPLACES REREAD
1) IF(R3.EQ.0)R3=RZZZ
**** File 2) MS.OLD[NEW,LCS]/2P/27L
2) REREAD 560,R3,R3
2) C FOR SOME REASON ONLY 'ZD' NEEDS THIS REREAD?!?!?!? FORMAT(A2,21F)
2) IF(R3.EQ.0)R3=RZZZ
***************
**** File 1) MS.F4[NEW,LCS]/3P/129L
1) CRR*** REREAD 560,JA,R2,RJQ
1) R6=RA
**** File 2) MS.OLD[NEW,LCS]/2P/127L
2) REREAD 560,JA,R2,RJQ
2) R6=RA
***************
**** File 1) MS.F4[NEW,LCS]/4P/406L
1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS] 5-12-80 21:51 pages 4,3
1) CRR***2430 FORMAT(I,24F)
1) 2430 END
**** File 2) MS.OLD[NEW,LCS]/3P/406L
2) 2430 FORMAT(I,24F)
2) END
***************